home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST2.TRP < prev    next >
Text File  |  1995-01-17  |  193b  |  11 lines
  1. procedure main
  2. var
  3.     success : boolean = true;
  4.         a : string = "A"
  5.         b : string = "B"
  6. endVar
  7.     if ((success) and (a = "A") and    (b = "B"))
  8.         writeln("Success")
  9.     endif
  10. endProc
  11.